4 :GOTO5000:---PRG START
5 :GOTO920::---DEL
6 :GOTO990::---ZEILEN
7 ::SYS62255:SYS58451:SYS64789:SYS43957:SYS60911:POKE198,.:RETURN:---RESET
8 ::A$="KOMMENTAR ZU 1.1":OPEN1,8,15,"S:"+A$:CLOSE1:SAVEA$,8:RETURN:---SAVE-PRG
10 ------------------------------------
11 :
12 :
50 :REM---TASTENABFRAGE-VARIANTEN(A$)
51 :GOSUB54:GETA$:RETURN:
52 :GOSUB54:SYS61758:A=PEEK(780):RETURN
53 :GOSUB54:A=PEEK(631):RETURN:
54 POKE649,1:POKE198,.:WAIT198,1:RETURN
55 :GOTO902:                           :
58 :
59 :
600 :REM---STRING GEN(A$,L)
601 :A$=A$+A$:ON-(LEN(A$)*2<L)GOTO601:A$=A$+LEFT$(A$,L-LEN(A$)):RETURN:
609 :
898 :
899 ====================================:
900 :REM--- PRG-TASTENABFRAGE
901 :GOSUB910:REM---LIST BEREICH
902 :POKE198,.:WAIT198,1:A=PEEK(631):IFA=148THEN:PRINT"[147]";:POKE214,255
903 :GOSUB7:IFA=69ORA=148THEN:PRINTR$"	EDIT":SYS42107
904 :IFA=92ORA=83THEN:OPEN1,8,15:CLOSE1:ON-(ST=.)GOSUB8:GOTO902:---SAVE
905 :IFA=68THEN:GOSUB960:GOTO902:--DRUCK
907 :RETURN:
908 :
909 :
910 :REM---PRG-LISTER(A,E)
911 :POKE214,PEEK(214)-1AND255
912 :POKE157,128:GOSUB913:POKE22,25:POKE157,.:POKE212,.:SYS58451:RETURN:
913 :POKE211,.:POKE210,2:POKE209,.:PRINT"[146][204][201][211][212]"ABS(A)"[157]-"ABS(E)"[157]@";
914 :POKE22,25-(A<.)*10:POKE768,212:POKE769,168:POKE781,255:POKE782,1:SYS42118:
918 :
919 :
920 :REM---DEL-LINES(A,E)
921 :GOSUB922:INPUT"LOESCH(A,E)";A,E:ON-(A*E>.)GOTO923:RETURN:
922 :POKE19,1:PRINT""TAB(80)"";:POKE19,.:H=218:POKEH,PEEK(H)OR128:RETURN:
923 :PRINT""A"[157]A=P[197](61)+P[197](62)*256+3:RE[212]":PRINT"GO[211]"A"[157]:E="E"[157]:GO[211]922:G[207]925";
924 :GOTO927:
925 :PRINT"A="A"[157]:E="E"[157]:G[207]926:
926 :B[178][194](A)[170][194](A[170]1)[172]256:[153]""B"";:[139]B[177]E[167]:[153]:[128]:
927 :[151]631,13:[151]632,13:[151]198,2:[158]42107:
928 :
929 :
960 :[143]--- SCHIRM AUF DRUCKER
961 :[141]965:[159]1,4:[152]1,[199](27)[199](.);:[139](ST)[137]965:
962 :[153]"";:[159]2,3:
963 :[129]J[178].[164][194](213):[151]212,.:[161]#2,A$:[152]1,A$;:[130]:
964 :[139]([194](214)[179]24)[137]963
965 :[160]1:[160]2:[142]:
968 :
969 :
990 :[143]--- NUMMERN AUF SCHIRM(I,A$)
991 :[133]"AB:";I,A$:[139]A$[178]""[167]:A$[178][199](34)
992 :[153]"LOAD";:[129]I[178]I[164]I[170]23:[151]213,40:[153][202]([196](I),2)A$:[130]
993 :[153]"";:[158]42107:
996 :
997 :
998 :
999 :
1000 :[143]==============================
1001 :[143]   TEXT: EINFUEHRUNG
1002 :[143]==============================
1003 :[153]"LOADVALINFUEHRUNG:":A[178][171]1012:E[178]1023:[141]900:
1004 :[153]"LOADVALINFUEHRUNG:":A[178][171]1040:E[178]1065:[141]900:[142]
1005 :
1009 :
1011 :
1012 "(null)AR DER (null)URS PEEKATN(null)RIGHT$LEN (null)(null)ATN(null)RIGHT$(null) 1 SCHON
1014 "GUT, MOECHTE ICH HIER DIE UEBERAR-
1015 "BEITETETE (null)ERSION 1.1 MIT EINIGEN
1016 "[214]ERBESSERUNGEN HERAUSBRINGEN.
1017 :
1018 "(null)EHR (null)ISTINGS,MEHR STR$EMOS, VERBESSERTE
1019 "[208]ROGRAMME, ICH HOFFE, DAS [194]ASIC-[198]ANS
1020 "HIER EINIGES FINDEN KOENNEN.
1021 :
1022 "[214]IEL [211]PASS
1023 "WUENSCHT VALUCH     (STR$IRK PEEKREITINGER)
1026 "
1039 :::::::
1040 "RIGHT$N DER ERSTEN STR$EMO WIRD EIN
1041 "[211]TANDARD-[208]ROGRAMMKOPF GEZEIGT.
1042 :
1043 "* STR$IE ERSTE (null)EILE FUEHRT EINEN (null)ESET
1044 "AUS, INSTALLIET DIE [210]ESTORE-[212]ASTE AUF
1045 "ATNBRUCH, TESTET DAS (null)ROGRAMMENDE UND
1046 "RUFT DANN DAS [200]AUPTPROGRAMM AUF.
1047 :
1048 "* STR$ANN FOLGT EIN (null)ROGRAMMTEIL, DAS
1049 "HILFT DEN [195]OMPUTER IN DEN [206]ORMAL-
1050 "(null)USTAND ZURUECKZUSETZEN.
1051 "[196]IE VERSCHIEDENEN [211][217][211]-[194]EFEHLE
1052 "SCHLIESSEN ALLE (null)ANAELE,(null)ORMALISIEREN
1053 "DIE [194]ASIC-[218]EIGER, SETZEN DIE
1054 "VALIN/ATN(null)(null)CHR$ATNPEEKVAL AUF PEEKILDSCHIRM ZURUECK
1055 "UND LOESCHEN DEN [212]ASTENPUFFER.
1056 :
1057 "* VALS FOLGT EIN (null)PEICHERPROGRAMM, DASS
1058 "ZUERST DAS [208]ROGRAMM LOESCHT UND DANN
1059 "ABSPEICHERT, WAS BEI VOLLEN STR$ISKETTEN
1060 "[193]BSPEICHERFEHLER VERHINDERT.
1097 :
1098 :
1099 :
1100 :[143]==============================
1101 :[143]   TEXT: GRUNDLAGEN
1102 :[143]==============================
1103 :
1104 :[153]"LOAD CHR$RUNDLAGEN:"
1105 :A[178][171]1112:E[178]1135:[141]900:[142]:
1106 :
1111 :
1112 "RIGHT$N DIESEM (null)URSTEIL ERFAEHRT DER
1113 "[194]ASIC-[206]EULING, WIE MAN [208]ROGRAMME
1114 "LAEDT, SPEICHERT ODER LISTET.
1115 :
1116 "[193]USSERDEM WIRD GEZEIGT, WIE MAN
1117 "ALLE (null)ARIABLEN MIT LEN(null)(null) LOESCHT ODER
1118 "WIE MAN EIN [194]ASIC [208]ROGRAMM MIT DEM
1119 "(null)VAL(null)-PEEKEFEHL LOESCHT.
1197 :
1198 :
1199 :
1200 :REM==============================
1201 :REM   TEXT: AUSGABE MIT PRINT
1202 :REM==============================
1203 :
1204 :PRINT"[147] [193]USGEBEN MIT PRINT:"
1205 :A=-1211:E=1232:GOSUB900:GOTO1240
1207 :
1210 "
1211 "RIGHT$N DIESEM (null)URSTEIL ERHAELT MAN EINE
1212 "[197]INFUEHRUNG UEBER DIE VERSCHIEDENEN
1213 "(null)ARIABLENTYPEN, DIE DAS LEN64-PEEKASIC
1214 "VERSTEHT UND WIE MAN SIE MIT DEM
1215 "(null)(null)RIGHT$(null)(null)-PEEKEFEHL AUSGIBT.
1216 :
1217 "[196]ARUEBERHINAUS WIRD GEZEIGT, WIE MAN
1218 "EIN ASCELD ANLEGT, UND (null)ARIABLEN
1219 "EINGIBT UND AUSGIBT.
1220 :
1221 "STR$ANN ERFAEHRT MAN, WIE MAN DIE ATNUS-
1222 "GABESTELLE BEIM [208][210][201][206][212]-[194][197][198][197][200][204] BESTIMMT
1223 :
1224 "ATNLS LETZTES WIRD GEZEIGT, WIE MAN DEN
1225 "[208][210][201][206][212]-[194]EFEHL IN EINEN [204][207][197][211][195][200]-[194]EFEHL
1226 "UMWANDELN KANN, MIT POKE19,1.
1233 :
1239 :
1240 :
1244 :PRINT"[147] [211]TEUERZEICHEN BEI PRINT:":A=-1251:E=1265:GOSUB900
1245 :PRINT"[147] [193]USGABE MIT LIST:":A=-1270:E=1289:GOSUB900:
1246 :
1247 :RETURN:
1250 "
1251 "STR$URCH DIE (null)ERWENDUNG VON (null)TEUERZEI-
1252 "CHEN KANN DIE [198]ARBE UND DAS [193]USSEHEN
1253 "DER (null)EICHEN BESTIMMT WERDEN.
1254 "[196]ABEI SIND BIS ZU 16 VERSCHIEDENE
1255 "ASCARBEN MOEGLICH.
1256 :
1257 "[205]IT [211]TEUERZEICHEN KANN MAN AUSSERDEM
1258 "NOCH DIE (null)TELLE DER ATNUSGABE BESTIMMEN
1259 :
1260 "[193]USSERDEM KANN MAN ZWISCHEN
1261 "(null)EICHENSATZ 1 UND 2 UMSCHALTEN ODER
1262 "DIE [218]EICHEN REVERS AUSGEBEN LASSEN.
1263 :
1264 "ATNUCH DAS (null)OESCHEN DES PEEKILDSCHIRMS
1265 "IST MIT EINEM [211]TEUERZEICHEN MOEGLICH.
1266 :
1268 :
1270 "(null)IT DEM (null)IST-(null)NTERPROGRAMM KANN MAN
1271 "[194]ASIC-[218]EILEN ALS [204]ISTING AUSGEBEN.
1272 :
1273 "(null)AN BRAUCHT BLOSS EINE (null)EILENNUMMER
1274 "UND EIN [200]OCHKOMMA EINZUGEBEN, UND
1275 "SCHON KANN MAN DEN PEEKASIC-VALDITOR ALS
1276 "[212]EXTVERARBEITUNG NUTZEN.
1277 :
1278 "CHR$IBT MAN BEI (null)ARIABLE A EINE NEGATIVE
1279 "[218]AHL AN, WIRD DAS [204]ISTING OHNE
1280 "(null)EILENNUMMERN AUSGEGEBEN.
1297 :
1298 :
1299 :
1300 :REM==============================
1301 :REM   TEXT: EINGABEN MACHEN
1302 :REM==============================
1303 :PRINT"[147] [197]INGABEN MACHEN:"
1304 :A=-1311:E=1331:GOSUB910:A=1332:E=A:GOSUB900:
1306 :PRINT"[147] [197]INGABEN MACHEN:":A=-1340:E=1369:GOSUB900:
1308 :PRINT"[147] [197]INGABEN MACHEN:":A=-1370:E=1389:GOSUB900
1309 :RETURN:
1310 :
1311 "[201]N DIESEM [203]URSTEIL WERDEN DIE VER-
1312 "SCHIEDEN (null)OEGLICHKEITEN DER VALINGABE
1313 "MIT [199][197][212] ODER [201][206][208][213][212]-[194]EFEHL GEZEIGT.
1314 "(null)IEST DER CHR$VAL(null)-PEEKEFEHL NUR GENAU EIN
1315 "[218]EICHEN, KANN MAN MIT [201][206][208][213][212] [218]AHLEN
1316 "UND (null)EICHENKETTEN BIS ZU 80 (null)EICHEN
1317 "EINGEBEN.
1319 "STR$A DER RIGHT$NPUT-PEEKEFEHL JEDOCH STR$OPPEL-
1320 "[208]UNKT, [211]EMIKOLON UND [203]OMMA ALS [212]RENN-
1321 "NUNGSZEICHEN AUFFAESST, KANN ER DIESE
1322 "NICHT LESEN.
1323 "STR$AFUER BRAUCHT MAN DANN EIN RIGHT$(null)(null)(null)(null)
1324 "MIT [211]ONDERZEICHEN.
1325 :
1326 "STR$AS ?-(null)EICHEN BEIM RIGHT$NPUT PEEKEFEHL KANN
1327 "MAN UEBRIGENS MIT POKE19,1 ABSTELLEN.
1328 "(null)M ASCEHLERMELDUNGEN ZU VERMEIDEN,
1329 "EMPFIELT ES SICH DIE EINZUGEBENEN
1330 "(null)ARIABLEN VORHER MIT PRINT AUSZUGEBEN.
1332 :A=10:PRINTTAB(7)A;:POKE211,3:POKE19,1:INPUT"EIN:";A:POKE19,0:RETURN:
1333 :
1334 :
1340 "[200]IER WIRD EIN [204]ISTING GEZEIT, DAS IN
1341 "NUR 10 (null)EILEN EIN (null)LEN-RIGHT$(null)(null)(null)(null) SIMMULIERT.
1342 "[218]UERST WIRD EIN [195]URSOR-[211]PRITE IN-
1343 "STALLIERT, DANN DIE VALINGABESCHLEIFE
1344 "AUFGERUFEN.
1345 :
1346 "(null)IT DIESEM (null)ISTING IST DER (null)EG ZU
1347 "EINEM PROGRAMMIERBAREM [201][206][208][213][212] FREI.
1370 "(null)IT DEM (null)ROGAMM MID$(null)(null)+(null)ATN(null)(null)VAL(null), KANN
1371 "EIN [202]OYSTICK DER [215]AHL UND DIE
1372 "(null)ASTATUR GLEICHZEITIG ABGEFRAGT
1373 "WERDEN.
1374 "(null)OGAR DIE ATNBFRAGE VON (null)ORT1, DER
1375 "[212]ASTATUR-[211]TEUERZEICHEN ERZEUGT, IST
1376 "NUN MOEGLICH.
1398 :
1399 :
1400 :REM==============================
1401 :REM   TEXT: DATEN ABLEGEN
1402 :REM==============================
1403 :
1404 :PRINT"[147] [196]ATEN-[194]EHANDLUNG"
1405 :A=-1411:E=1433:GOSUB900:RETURN:
1407 :
1410 "
1411 "LEFT$IER WIRD DIE (null)ERWENDUNG VON (null)VALATNSTR$ UND
1412 "[196][193][212][193]-[194]EFEHL GEZEIGT.
1413 :
1414 "(null)IT (null)VAL(null)(null)(null)(null)VAL KANN DER STR$ATN(null)ATN-(null)EIGER
1415 "JEDOCH NUR AUF DEN [208]ROGRAMMANFANG
1416 "GESTELLT WERDEN.
1417 :
1418 "[196]AS GEZEIGTE [204]ISTING ERLAUBT NUN DEN
1419 "WAHLFREIEN (null)UGRIFF AUF STR$ATA (null)EILEN.
1420 "[196]ADURCH KANN [210][197][193][196]/[196][193][212][193] NUN ZUM
1421 "(null)ULTI-(null)ALLENT WERDEN.
1422 :
1430 "[196]ADURCH, DASS DIE [204]()-[198]UNKTION DIE
1431 "(null)EILENADRESSE LIEFERT, IST JETZT
1432 "SOGAR EINE [198]ESTSTRINGVERWALTUNG IN
1433 "STR$ATN(null)ATN-(null)VALRIGHT$(null)VAL(null) MOEGLICH."
1434 :
1435 :
1500 :[143]==============================
1501 :[143]   TEXT: STRING OPERATIONEN
1502 :[143]==============================
1503 :[153]"LOAD (null)TRING-(null)PERATIONEN:"
1504 :A[178][171]1510:E[178]1522:[141]900:
1506 :[153]"LOAD (null)TRING-(null)PERATIONEN:"
1507 :A[178][171]1540:E[178]1569:[141]900:[142]:
1509 :
1510 "LEFT$IER WERDEN DIE (null)(null)ATN(null)STR$ATN(null)STR$-(null)(null)(null)RIGHT$(null)CHR$-
1511 "[207][208][197][210][193][212][201][207][206][197][206] GEZEIGT:
1512 "(null)TRING EINGEBEN/LOESCHEN, (null)EIT LESEN,
1513 "[204]AENGE BESTIMMEN,[193][211][195][201][201]-[218]EICHEN LESEN/
1514 "BILDEN ODER (null)EILSTRINGS AUSLESEN.
1515 :
1516 "[196]AS [213]NTERPROGRAMM [211][212][210][201][206][199]-[199][197][206] ZEIGT,
1517 "WIE MAN IN (null)EKUNDENBRUCHTEILEN EINEN
1518 "[211]TRING AUFBAUT.
1519 :
1520 "STR$AS (null)NTERPROGRAMM ASCVAL(null)STR$-(null)(null)VAL(null)LENLEFT$ LOESCHT
1521 "IN [211]EKUNDENBRUCHTEILEN ALLE
1522 "(null)ARIABLEN-ASCELDER.
1530 :
1540 "[205]IT [211]TINGS KANN MAN NOCH MEHR MACHEN:
1541 :
1542 "(null)(null)CHR$: (null)(null)(null)RIGHT$(null)CHR$(null) (null)VAL(null)(null)VAL(null) UND (null)VAL(null)VAL(null)
1543 " [200]IERMIT KANN MAN EINEN [211]TING AUF
1544 " EINEN (null)PEICHERBEREICH SETZEN.
1545 " [196]AS [204]ESEN, [214]ERAENDERN UND [193]US-
1546 " FUEHREN VON (null)YSTEMROUTINEN ODER
1547 " [205]ASCHINENCODE-[211]TRINGS WIRD DAMIT
1548 " MOEGLICH.
1549 :
1550 "[208][210][199]: [194][193][211][201][195]-[211][212][210][201][206][199],
1551 " ERLAUBT (null)TRINGS ALS PEEKASIC-LENODE
1552 " AUSZUFUEHREN.
1553 " STR$EMO 1 ZEIGT EIN (null)IST-STR$VAL(null)(null).
1554 " [196][197][205][207] 2 ZEIGT DAS [206]ACHLADEN UND
1555 " STARTEN EINES (null)ROGRAMMS.
1598 :
1599 :
1600 :REM==============================
1601 :REM   TEXT: NUMMERISCHE RECHNUNG
1602 :REM==============================
1603 :PRINT"[147] [206]UMMERISCHE [210]ECHNUNG:":A=-1611:E=1632:GOSUB900
1605 :PRINT"[147] [198]UNKTIONEN:"
1606 :A=-1640:E=1663:GOSUB900:RETURN:
1608 :
1609 :
1610 "
1611 "CHR$(null)(null)(null)STR$-(null)VALLENLEFT$VAL(null)ATN(null)(null)VAL(null):
1612 "[200]IER WIRD  [208]LUS,[205]INUS,[205]AL,[196]URCH,[200]OCH,
1613 "(null)UADRATWURZEL UND (null)UFALLSZAHLEN-
1614 "BERECHNUNG GEZEIGT.
1615 :
1616 "ATNUCH (null)RIGHT$(null)(null)VAL(null)-ASC(null)(null)(null)(null)RIGHT$(null)(null)VAL(null), WIE (null)INUS,
1617 "[195]OSINUS,[212]ANGENS UND [193]RCUSTANGENS
1618 "HAT DER LEN64 ALS (null)TANDARDFUNKTIONEN.
1619 "[196]AZU KOMMEN NOCH [197][216][208][207][206][197][206][212][201][193][204] UND
1620 "(null)(null)CHR$VAL(null)RIGHT$(null)LEFT$(null)(null)(null)-ASCUNKTION ZUR PEEKASIS VAL.
1621 :
1623 "[204][207][199][201][203] UND [218][193][200][204]-[207][208][197][210][193][212][201][207][206][197][206]:
1624 :
1625 :[175]   : BITS AUSLESEN
1626 :[176]    : BITS SETZEN
1627 :[168]() : BITS NEGIEREN
1628 :INVERT: BITS UMDEHEN
1629 :E[176]   : BITS MIT MASKE UMDREHEN
1630 :[180]() : V[176]ZEICHEN BESTIMMEN
1631 :[181]() : KOMMA [182]CHNEIDEN
1632 :[182]() : ZAHL [185]ITIV MACHEN
1633 :
1640 "ASCUNKTION VERKUERZEN UND VEREINFACHEN
1641 "[208]ROGRAMME UND KOENNEN VIEL LEISTEN.
1643 "FN  K(): (null)ORRIGIERT (null)ECHNUNGEN
1644 "FN  R(): [210]UNDET [218]AHLEN BIS 2. [211]TELLE
1645 "FN  M(): BERECHNET (null)EILUNGS-(null)EST
1646 "FN  P(): 2-[194]YTE [218]AHL AUS [211]PEICHER
1647 "FN  Z(): ERZEUGT EINE (null)UFALLSZAHL
1648 "FN  J(): FRAGT DEN [202]OYSTICK AB
1649 "FN  T(): FRAGT DIE (null)ASTATUR AB
1650 "FN TT(): [212]ASTENTABELLEN-[193]DRESSE
1651 "FN  C(): ERMITTELT LENURSORPOSITION
1652 "FN CP(): [218]EICHEN IN [195]URSORPOSITION
1653 "FN FA():(null)TEUERZEICHENCODE ZU ASCARBCODE
1654 "FN FF(): [211]TEUERZEICHENCODE ZU [198]ARBE
1655 "FN SA(): (null)CHIRMCODE ZU ATN(null)LENRIGHT$RIGHT$-LENODE
1656 "FN AS(): [193][211][195][201][201]-[195]ODE ZU [211]CHIRM-[195]ODE
1657 "FN BA(): (null)ICHT-PEEKILDSCHIRM ATNDRESSE
1658 "FN ZS(): [218]EICHEN-[193][196][210][197][211][211][197]([211]CHIRM-CODE)
1659 "FN BR(): ATNUSGABE-(null)CHIRM ATNDRESSE
1660 "FN FS(): [198]ARB-[211]PEICHER [193]DRESSE
1661 "FN  L(): PEEKASIC-(null)EILEN-ATNDRESSE
1662 "FN ZN(): [194]ASIC-[218]EILEN-[206]UMMER
1663 "FN FR(): FREIER PEEKASIC-(null)PEICHER
1697 :
1698 :
1699 :
1700 :REM==============================
1701 :REM   TEXT: KANAL BEHANDLUNG
1702 :REM==============================
1703 :
1704 :PRINT"[147] [203]ANAL-[194]EHANDLUNG:"
1705 :A=-1710:E=1731:GOSUB900:RETURN:
1706 :
1710 "[205]IT [207][208][197][206],[195][204][207][211][197],[199][197][212]#,[201][206][208][213][212]#,[208][210][201][206][212]#
1711 "KANN DER LEN64 (null)ONTAKT ZUR ATNUSSENWELT
1712 "AUFNEHMEN.
1713 "STR$AS IST (null)ASTATUR, (null)ASSETTENLAUFWERK,
1714 "[211]CHIRM, [196]RUCKER ODER [196]ISKETTE.
1715 "
1716 "[207][208][197][206]  : OEFFNET DEN [197][201][206]/[193][213][211][199][193][194][197] [203]ANAL
1717 "LEN(null)(null)(null)VAL : SCHLIESST EINEN (null)ANAL
1718 "[199][197][212]#  : HOLT EIN [218]EICHEN
1719 "RIGHT$(null)(null)(null)(null)#: HOLT EINE (null)AHL ODER (null)TRING
1720 "[208][210][201][206][212]#: SCHREIBT  [218]AHL,[211]TRING,[218]EICHEN
1733 "
1800 :REM==============================
1801 :REM   TEXT: SPEICHER OPERATIONEN
1802 :REM==============================
1803 :PRINT"[147] [211]PEICHER [207]PERATIONEN:":A=-1811:E=1831:GOSUB900
1805 :PRINT"[147] [194]IT [207]PERATIONEN:"
1806 :A=-1840:E=1861:GOSUB900
1808 :PRINT"[147] [214]IDEO-[205]ODUS:[146] ":A=-1870:E=1889:GOSUB900:
1809 :
1810 :RETURN:
1811 "[205]IT DEM [208][207][203][197], [208][197][197][203]() UND [211][217][211]-[194]EFEHL
1812 "KANN DER (null)PEICHER BESCHRIEBEN,GELESEN
1813 "ODER AUSGEFUEHRT WERDEN.
1814 :
1815 "STR$ER (null)(null)(null)VAL-PEEKEFEHL BESCHREIBT DEN
1816 "[211]PEICHER.
1817 "STR$ER (null)VALVAL(null)()-PEEKEFEHL LIEST DEN (null)PEICHER.
1818 :
1819 "[205]IT DEM [211][217][211]-[194]EFEHL KANN MAN [211]YSTEM-
1820 "UND (null)ASCHINENPROGRAMME AUSFUEHREN.
1821 :
1822 "[196]IE [211]PEICHERSTELLEN 780-783 ENT-
1823 "SPRECHEN IN (null)ASCHINENSPRACHE DEN
1824 "[210]EGISTERN [193][203][203][213][205][213][204][193][212][207][210], [216]-[210][197][199][201][211][212][197][210],
1825 "(null)-(null)VALCHR$RIGHT$(null)(null)VAL(null) UND (null)(null)ATN(null)(null)(null)-(null)VALCHR$RIGHT$(null)(null)VAL(null).
1833 :
1834 :
1840 "[205]IT [207][210],[193][206][196] UND [206][207][212] WERDEN [194]ITS GE-
1841 "SETZT, GELOESCHT ODER UMGEDREHT:
1842 :
1849 "[204]ISTING([218].10) ZEIGT WIE MAN EINE
1850 "10NER-(null)AHL ALS EINE BINAERE 2ER-(null)AHL
1851 "AUSGEBEN KANN.
1852 "(null)ANDELT MAN DAS (null)ROGRAMM ETWAS AB,
1853 "KANN MAN AUCH [218]EICHENSATZDATEN ALS
1854 "CHR$ROSS-(null)CHRIFT AUSGEBEN.
1859 :
1860 "[196]IE [204]ISTINGS([218].15-18) ZEIGEN, WIE MAN
1861 "PEEKITS SETZT ODER LOESCHT.
1862 :
1863 :
1870 "[201]N DEM [214]IDEO-[205]ODUS [204]ISTING WIRD
1871 "GEZEIGT, WIE DIE VERSCHIEDENEN
1872 "[194]ILDSCHIRM-[205]ODI EINSTELLT WERDEN.
1873 :
1874 "-(null)IDEO-(null)ODUS-(null)ISTING:
1875 "[205]AN KANN ZWISCHEN [206]ORMAL-16 [198]ARBEN,
1876 "LEFT$INTERGRUND-ASCARBMODUS,
1877 "[205]ULTICOLORMODUS, [200]IRES [199]RAFIKMODUS
1878 "UND (null)ULTICOLOR-CHR$RAFIK UMSCHALTEN.
1879 :
1880 "-[205]IT DEM [198]ARBWAHL-[204]ISTING STELLT MAN
1881 "DIE ASCARBEN FUER LEFT$INTERGRUNDFARBMODUS
1882 "UND [205]ULTICOLORMODUS EIN.
1883 :
1884 "-(null)IT DEM (null)COLL-(null)ISTING KANN MAN
1885 "DEN [211]CHIRM BITWEISE VERSCHIEBEN ODER
1886 "WACKELN LASSEN.
1887 :
1888 "-[196]AS [193]N/AUS [204]ISTING SCHALTET DEN
1889 "(null)CHIRM DES LEN64 AN UND AUS.
1898 :
1899 :
1900 :REM==============================
1901 :REM   TEXT: PROGRAMM-STRUKTUR
1902 :REM==============================
1903 :
1904 :PRINT"[147] [208][210][207][199][210][193][205][205]-[211][212][210][213][203][212][213][210][197][206]:"::A=-1910:E=1916:GOSUB900:
1905 :RETURN:
1906 :
1909 :
1910 "[201]N DIESEM [208]ROGRAMMTEIL WIRD GEZEIGT,
1911 "WIE MAN (null)ROGRAMMSTRUKTUREN AUFBAUT:
1912 :
1913 "[197]S WERDEN [194]EISPIELE FUER [211]PRUENGE,
1914 "(null)ERZWEIGUNGEN, (null)CHLEIFEN, PEEKEDINGUNGEN
1915 "UND ZUR [208]ROGRAMMBEENDUNG MIT [197][206][196]
1916 "ODER (null)VAL(null)VAL(null)CLOSEGEZEIGT.
1997 :
1998 :
1999 :
3000 :REM==============================
3001 :REM  TEXT: DISKETTEN-LAUFWERK
3002 :REM==============================
3003 :PRINT"[147][196]ISK-[204]AUFWERK:[146]"
3004 :A=-3010:E=3040:GOSUB900:RETURN:
3005 :
3010 "[205]IT DEM [196]ISK-[204]AUFWERK KANN MAN [196]ATEN
3011 "LADEN UND SPEICHERN.
3012 :
3013 "[204]ISTING 1 ZEIGT, WIE MAN DAS
3014 "STR$ISKETTENVERZEICHNIS LAEDT UND
3015 "AUSGIBT.
3016 :
3017 "(null)ISTING 2 ZEIGT, WIE DER ASCEHLERKANAL
3018 "AUSGELESEN WIRD.
3019 "STR$ABEI WERDEN ALLE ASCLOPPY-ASCEHLER AB-
3020 "GEFANGEN UND ANGEZEIGT.
3098 :
3099 :
3100 :[143]==============================
3101 :[143]  TEXT: LADEN UND SPEICHERN
3102 :[143]==============================
3103 :[153]"LOAD(null)ADEN UND (null)PEICHERN:"
3104 :A[178][171]3110:E[178]3120:[141]900
3105 :[153]"LOAD(null)TRINGS LADEN:"
3106 :A[178][171]3140:E[178]3145:[141]900:[142]:
3108 :
3109 :
3110 "(null)IT DEM GEZEIGTEN (null)ISTINGS KANN MAN
3111 "NAHEZU ALLES [204]ADEN UND [211]PEICHERN.
3112 :
3113 "(null)AN KANN (null)PEICHERBLOECKE IN DEN
3114 "[211]PEICHER LADEN ODER SPEICHERN.
3115 :
3116 "STR$AS (null)ISTING PEEKASIC-LENODE LAD/SPEICHERN
3117 "ERLAUBT ES SOGAR [194]ASIC [208]ROGRAMME,
3118 "(null)ARIABLEN ODER STR$ATAS ZU LADEN UND
3119 "ZU SPEICHERN.
3125 :
3126 :
3140 "STR$AS (null)ISTING (null)TRING LADEN ERLAUBT
3141 "DEM [193]NWENDER [211]PEICHERBLOECKE VON
3142 "DER (null)AENGE 0-256 PEEKYTES VON STR$ISKETTE
3143 "ZU LADEN.
3144 "STR$ABEI WIRD DER (null)TRING (null)$ AUTOMATISCH
3145 "AUF DEN EINGELESENEN [211]TRING GESETZT.
3146 "
3200 :REM==============================
3201 :REM  TEXT: ZEICHENSATZ
3202 :REM==============================
3203 :PRINT"[147][218]EICHENSATZ:"
3204 :A=-3210:E=3237:GOSUB900:
3207 :PRINT"[147][197]INSTELLUNGEN:"
3208 :A=-3240:E=3268:GOSUB900:RETURN:
3209 :
3210 "[196]AS GEZEIGTE [204]ISTING UEBERTRAEGT
3211 "DAS PEEKVAL(null)(null)RIGHT$VALPEEK(null)(null)(null)(null)(null)VAL(null)-(null)(null)(null) KOMPLETT IN
3212 "DAS [210][193][205], DER [211]CHIRM WIRD INS OBERE
3213 "(null)ATN(null) VERLEGT.
3214 "[196]ADURCH IST DAS [193]ENDERN VON [194]ETRIEBS-
3215 "SYSTEN UND (null)EICHSAETZEN MOEGLICH,
3216 "OHNE DEN [194]ASIC-[211]PEICHER ZU VERRINGERN.
3217 "VALS WIRD SOGAR MOEGLICH, DAS
3218 "[194][193][211][201][195]-[210][193][205] UM 1K[194] ZU VERGROESSERN.
3219 "(null)OM OBEREN (null)AM AUS KANN MAN BIS ZU
3220 "8 [218]EICHENSAETZE ODER 240 [211]PRITES
3221 "VERWALTEN.
3222 :
3223 "[205]IT DEM [204]ISTING [196]ATA-[208]OKE KANN MAN
3224 "DEN (null)PEICHER BELIEBIG AENDERN.
3225 "[218]AHLEN >255 WERDEN ALS [193]DRESSE,
3226 "(null)AHLEN 0-255 WERDEN ALS (null)ERT,
3227 "[218]AHLEN -1 - -255 WERDEN ALS [193]DRESSE,
3228 "(null)AHLEN <-255 WERDEN ALS (null)(null)(null)-PEEKEFEHL
3229 "INTERPRETIERT.
3230 "STR$IE (null)AHL -.1 BEWIRKT DEN ATNBBRUCH.
3238 :
3239 :
3240 "[201]N DIESEM [212]EIL WIRD
3241 "DIE (null)MSCHALTUNG DES (null)EICHENSATZES
3242 "DIE [213]MSCHALTUNG DES [194]ILDSCHIRM UND
3243 "ATNENDERUNG DER (null)PEICHERKONFIGURATION
3244 "GEZEIGT.
3245 "ATNUSSERDEM KANN MAN DEN (null)CHIRM NOCH
3246 "NACH 35840 VERLEGEN UND DEN
3247 "PEEKASIC-(null)PEICHER BESCHRAENKEN, WAS
3248 "Z.[194]. BEI [199]RAFIK [193]NWENDUNGEN IN
3249 "DIESEM PEEKEREICH ERFORDERLICH IST.
3298 :
3299 :
3300 :REM==============================
3301 :REM 4:TEXT: GRAPHIK
3302 :REM==============================
3303 :
3304 :PRINT"[147][199]RAPHIK:"
3305 :A=-3310:E=3342:GOSUB900:
3306 :PRINT"[147][199]RAPHIK:"
3307 :A=-3350:E=3377:GOSUB900:RETURN:
3309 :
3310 "[200]IER WERDEN VERSCHIEDENE [208]ROGRAMME
3311 "ZUR CHR$RAFIKPROGRAMMIERUNG GEZEIGT.
3312 :
3313 "[199][210][193][198][201][203]-[204][207][197][211][195][200] LOESCHT DIE [199]RAFIK-
3314 "PEEKITMAP UND DAS (null)IDEO-RAM. LEFT$IERZU
3315 "WIRD DAS [203]OPIERPROGRAMM [210]UNTER-[203]OPIE
3316 "VERWENDET.
3317 :
3318 "[199][210][193][208][200][201][203]-[195][207][206][198][201][199] LAEDT DIE NOETIGEN
3319 "(null)ARIABLEN. VALS SIND 4 VERSCHIEDENE
3320 "[199]RAPHIKADRESSEN MOEGLICH:
3321 "PEEKITMAP AB 8192,24576,40960 UND 57344
3322 "[194]EI DEN ERSTEN DREIEN IST ES NOETIG
3323 "DEN PEEKASIC-(null)PEICHER ZU BESCHRAENKEN.
3324 "[194]EI DEN LETZTEN BEIDEN MUSS DIE
3334 "(null)PEICHER-(null)ONFIGURATION BEACHTET
3335 "WERDEN. (POKE1,54:POKE1,55)
3336 :
3340 "CHR$(null)ATN(null)LEFT$RIGHT$(null)-VALRIGHT$(null) SCHALTET DIE CHR$RAPHIK-
3341 "ADRESSE UM UND SETZT DEN
3342 "(null)ULTICOLORMODUS.
3346 :
3347 :
3350 "[199][210][193][208][200][201][203]-[211][212][210][201][206][199] SCHREIBT EINEN
3351 "(null)TRING IN DIE CHR$RAPHIK PEEKITMAP.
3352 "[196]IE [218]EICHENINFORMATIONEN WERDEN DABEI
3353 "AUS DEM (null)EICHSATZ GELESEN UND MITTELS
3354 "[211]TRING-[203]OPIE IN DIE [194]ITMAP GEBRACHT.
3355 "VALS KOENNEN SOGAR (null)ULTICOLORZEICHEN
3356 "AUSGEBEN WERDEN.
3357 :
3360 "CHR$(null)ATN(null)LEFT$RIGHT$(null)-(null)RIGHT$(null)RIGHT$VAL  ZEICHNET EINE (null)INIEN-
3361 "FOLGE IN DIE [194]ITMAP.
3362 "(null)ACH DEM VALINGEBEN DER RIGHT$NFORMATIONEN
3363 "IN DAS X(),Y()-[198]ELD WERDEN DIE ZUGE-
3364 "HOERIGE (null)TEIGUNG UND (null)OORDINATE
3365 "BERECHNET UND DANN MIT [211][197][212]-[208][201][216][197][204]
3366 "IN DIE PEEKITMAP EINGETRAGEN.
3398 :
3399 :
3400 :REM==============================
3401 :REM 5:TEXT: SORTIEREN
3402 :REM==============================
3403 :PRINT"[147][211]ORTIEREN:"
3404 :A=-3410:E=3430:GOSUB900:RETURN
3409 :
3410 "[198][197][204][196]-[198][213][197][204][204] LOESCHT ALLE [198]ELDER UND
3411 "DIMMENSIONIERT DANN EIN ASCELD MIT
3412 "50 [197]LEMENTEN, DAS DANN ZUFAELLIG GE-
3413 "GEFUELLT WIRD.
3414 :
3415 "[218][197][201][199][197][210]-[211][207][210][212] IST EIN KLEINES [211]ORTIER-
3416 "PROGRAMM, DAS DAS ASCELD SORTIERT.
3417 "[197]S ERMOEGLICHT EIN RELATIV SCHNELLES
3418 "SORTIEREN BEI GLEICHZEITIGER ATNUSGABE.
3419 "[208]RO AUSGEGEBENEN [211]TRING FINDET NUR
3420 "EIN (null)TRINGTAUSCH STATT, WODURCH DER
3421 "[195]OMPUTER SELTEN ZUR [211]TRING-
3422 "ATNUFRAEUMUNG VERSCHWINDET.
3423 :
3424 "[211][213][208][197][210]-[218][197][201][199][197][210]-[211][207][210][212] IST DIE VERBESSERTE
3425 "(null)ARIANTE VON (null)EIGERSORT.
3426 "[196]AS VON MIR ENTWICKELTE [208]ROGRAMM
3427 "ERLAUBT SCHNELLES (null)ORTIEREN BEI
3428 "GLEICHZEITIGER [193]USGABE, SCHNELLES
3429 "ATNUSGEBEN BEREITS SORTIERTER ASCELDER
3430 "UND SCHNELLES [197]INFUEGEN.
3431 "
3498 :
3499 :
3500 :REM==============================
3501 :REM 6:TEXT: SCHIRM ROLLEN
3502 :REM==============================
3503 :PRINT"[147][211]CHIRM ROLLEN:"
3504 :A=-3510:E=3531:GOSUB900:RETURN:
3507 :
3509 :
3510 "[211][197][201][212][197][206]-[211][195][210][207][204][204]  ROLLT DIE GANZE [194]ILD-
3511 "SCHIRMSEITE HOCH UND RUNTER, UND DAS
3512 "IN [197]CHTZEIT. [196]AMIT KANN MAN SOGAR
3513 "EINE (null)CROLLENDE (null)EXTVERABEITUNG
3514 "PROGRAMMIEREN.
3515 :
3516 "(null)(null)(null)(null) LEFT$(null)LENLEFT$/(null)(null)(null)(null)VAL(null) MACHT DAS SELBE,
3517 "MAN KANN JEDOCH DIE [193]NFANGS UND
3518 "VALNDZEILE SELBST BESTIMMEN.
3519 :
3520 "[210][207][204][204] [204][201][206][203][211]/[210][197][195][200][212][211] ROLLT DEN [211]CHIRM
3521 "NACH LINKS ODER RECHTS.
3522 "[196]ER [212]RICK BERUHT AUF DER [214]ERWENDUNG
3523 "DER (null)TEUERZEICHEN VALRIGHT$(null)ASC(null)VALCHR$ UND (null)(null)VAL(null)LENLEFT$
3524 "([201][206][211][212],[196][197][204]).
3525 "ASCALLS STR$OPPELZEILEN AUF DEM (null)CHIRM
3526 "SIND, SOLLTE VORHER DAS [208]ROGRAMM
3527 "(null)LENLEFT$RIGHT$(null)(null) RIGHT$(null)RIGHT$(null) AUFGERUFEN WERDEN.
3598 :
3599 :
3600 :REM==============================
3601 :REM 7:TEXT: SPRITES
3602 :REM==============================
3603 :PRINT"[147][211]PRITES:"
3604 :A=-3610:E=3630:GOSUB900:
3605 :PRINT"[147][211]PRITES:"
3606 :A=-3640:E=3651:GOSUB900:RETURN:
3608 :
3609 :
3610 "[211][208][210][201][212][197]-[197][201][206] RUFT ALLE FOLGENDEN
3611 "(null)NTERPROGRAMME GLEICHZEITIG AUF.
3612 :
3613 "-[211][208][210][201][212][197] [208][207][211]: SETZT DAS [211]PRITE AUF
3614 "EINE X(0-319),Y(0-199) (null)OSITION.
3615 "-[211][208][210][201][212][197][160][193][206]: SCHALTET [211]PRITES AN/AUS,
3616 "BESTIMMT (null)RIORITAET UND SETZT DEN
3617 "[204]ESE-[194]LOCK(NB).
3618 "-(null)(null)(null)RIGHT$(null)VAL ASCATN(null)PEEKVAL: BESTIMMT DIE ASCARBE
3619 "UND SCHALTET IN DEN [205]ULTICOLORMODUS.
3620 "-(null)(null)(null)RIGHT$(null)VALCLOSEVAL(null)(null)ATN(null)STR$: VERGROESSERT ODER
3621 "VERKLEINERT DAS [211]PRITE.
3622 :
3623 "-(null)(null)(null)RIGHT$(null)VAL STR$ATN(null)ATN: INSTALLIERT EIN (null)PRITE
3624 "UND SETZT DEN [211]PRITEBLOCK.
3625 "-(null)(null)(null)RIGHT$(null)VAL (null)VAL(null)VAL(null): LAESST ALLE (null)PRITES
3626 "VERSCHWINDEN UND SETZT DIE [214]ARIABLEN.
3627 "-(null)(null)(null)RIGHT$(null)VAL PEEKVALRIGHT$(null)VAL(null)(null): SETZT UND LIEST
3628 "[198]ARBE, [205]ULTICOLOR UND [197][216][208][193][206][196].
3629 "-(null)(null)(null)RIGHT$(null)VAL CHR$(null)VALRIGHT$LENLEFT$(null)VALRIGHT$(null)RIGHT$CHR$:  SETZT MEHRERE
3630 "[211]PRITES GLEICHZEITIG NACH [212]ABELLE.
3631 :
3632 :
3640 "(null)(null)(null)RIGHT$(null)VAL (null)(null)VAL(null)VAL(null)(null)(null)CHR$:
3641 :
3642 "[218]EIGT EIN [204]ISTING ZUR [211]PRITE-
3643 "(null)TEUERUNG.
3644 :
3645 "[206]ACH DER [201]NSTALLATION WIRD DAS [211]PRITE
3646 "AUF SEINE (null)OSITION GESETZT.
3647 "[196]ANACH FINDET DIE [193]BFRAGE DES [202]OY-
3648 "STICK STATT.
3649 "[213]NTER [214]ERWENDUNG EINES [208]ARAMETERS
3650 "WIRD DANN DIE NEUE (null)PRITE-(null)OSITION
3651 "BERECHNET UND GESETZT.
3698 :
3699 :
3700 :[143]==============================
3701 :[143] 8:TEXT: SOUND UND MUSIK
3702 :[143]==============================
3703 :
3704 :[153]"LOAD(null)ON-ATNUSGABE:"
3705 :A[178][171]3710:E[178]3737:[141]900:[142]:
3706 :[153]"LOAD(null)ON-ATNUSGABE:WAIT  STR$EMO(F1)"
3707 :A[178]100:E[178]125:[141]900:
3708 :[142]:
3709 :
3710 "RIGHT$M ERSTEN (null)EIL WERDEN DIE VERSCHIEDEN
3711 "[210]EGISTER DES [195]64 BESCHRIEBEN, DIE
3712 "ZUR (null)ON-ATNUSGABE NOETIG SIND.
3713 :
3714 "[196]ANNACH FOLGT EIN [205]ODUL, DAS MITTELS
3715 "(null)ARIABLEN ALLE (null)EGISTER UND DIE DREI
3716 "[211]TIMMEN DES [195]64 ANSPRECHEN KANN.
3717 :
3718 "VALIN STR$EMO ZEIGT, WIE ES SICH ANHOEREN
3719 "KANN.
3798 :
3799 :
3800 :[143]==============================
3801 :[143] 9:TEXT: KOPIEREN
3802 :[143]==============================
3803 ::[153]"LOAD(null)OPIEREN:"
3804 :A[178][171]3810:E[178]3837:[141]900:
3805 ::[153]"LOAD(null)OPIEREN:"
3806 :A[178][171]3840:E[178]3867:[141]900:[142]:
3809 :
3810 "(null)IT (null)OPIERPROGRAMMEN KANN MAN
3811 "[211]PEICHERBEREICHE, [199]RAFIK ODER [218]EICHEN
3812 "VERSCHIEBEN, LOESCHEN ODER ROLLEN.
3813 "[211]OGAR EIN [194]ITMAP-[210]OLLEN WIRD MOEGLICH.
3819 "VALRIGHT$(null)(null)VAL(null)(null)(null)(null)RIGHT$VAL: UEBERTRAEGT EINEN
3820 "BELIEBIG GROSSEN [211]PEICHERBEREICH
3821 "MITTELS (null)VALVAL(null) UND (null)(null)(null)VAL.
3822 :
3823 "[211][212][210][201][206][199] [201][206] [211][208][197][201][195][200][197][210]: SCHREIBT EINEN
3824 "(null)TRING AB ATNDRESSE(A) IN DEN (null)PEICHER.
3825 :
3826 "[212][193][211][212][197][206][208][213][198][198][197][210]: [211]CHREIBT EINEN [211]TRING
3827 "IN DEN (null)ASTATURPUFFER, DER NACH
3828 "EINEM [197][206][196] AUSGEFUEHRT WIRD.
3829 :
3830 "(null)(null)(null)RIGHT$(null)CHR$-LEN(null)(null)(null): KOPIERT EINEN (null)PEICHER-
3831 "BEREICH MIT [204]AENGE BIS 255 [194]YTE.
3838 :
3839 :
3840 "LEFT$(null)LENLEFT$-(null)(null)(null)RIGHT$VAL: UEBERTRAEGT EINEN
3841 "BELIEBIG GROSSEN [211]PEICHERBEREICH.
3842 "(null)IT DEM VORGESCHALTETEN (null)ROGRAMM
3843 "KOENNEN AUCH DIE [218]EICHENSATZDATEN
3844 "GELESEN UND UEBERTRAGEN WERDEN.
3845 :
3846 "[210][213][206][212][197][210]-[203][207][208][201][197]: KOPIERT BELIEBIGE
3847 "(null)PEICHERBEREICHE.
3848 "[196]A DAS [208]ROGRAMM FUER [194]ASIC ETWAS
3849 "GEAENDERT WERDEN MUSS, MUSS MAN ES
3850 "VORHER IN EINEM ANDEREM [194]EREICH,
3851 "Z.PEEK. (null)ASSETTENPUFFER, INSTALLIEREN.
3852 :
3853 "[213][211][210]-[210][193][205]-[208][197][197][203]: ERLAUBT DEN [194]LICK UNTER
3854 "DAS (null)(null)(null) MITTELS (null)(null)(null)-ASCUNKTION.
3855 :
3856 "[210][193][205]-[211][208][210][213][206][199]: IST EIN [205]ASCHINENPRO-
3857 "GRAMM, DAS ZUERST DIE (null)ONFIGURATION
3858 "(POKE1,48) UMSCHALTET UND DANN
3859 "EIN (null)ASCHINENPROGRAMM AUFRUFT.
3860 "[196]ADURCH KANN DER [211]PEICHER UNTERM [210][207][205]
3861 "VON PEEKASIC AUS GENUTZT WERDEN.
3870 "[205]IT [210][193][205]-[211][208][210][213][206][199] UND [210][193][205]-[208][197][197][203] KANN DER
3871 "(null)PEICHER UNTER DEM PEEKETRIEBSSTEM-(null)(null)(null),
3899 :
3900 :REM==============================
3901 :REM  TEXT: SPEICHER-BEREICHE
3902 :REM==============================
3903 :PRINT"[147][195]64 [211]PEICHER-[193]UFBAU:"
3904 :A=-3910:E=3931:GOSUB900:RETURN:
3908 :
3909 :
3910 "[200]IER WIRD DER [211]PEICHERAUFBAU DES [195]64
3911 "DARGESTELLT.
3912 "[196]IE VERSCHIEDENEN [203]ONFIGURATIONEN DES
3913 "(null)PEICHERS WERDEN IN (null)PEICHERSTELLE 1
3914 "UNGESCHALTET.
3915 :
3916 "VALS WERDEN AUCH ALLE SONSTIGEN (null)EIGER,
3917 "WIE:
3918 :
3919 "- (null)ROGRAMM-ATNNFANG/VALNDE
3920 "- [214]ARIABLEN-[193]NFANG/[197]NDE
3921 "- ASCELD-ATNNFANG/VALNDE
3922 "- [211]TRING-[193]NFANG/[197]NDE
3923 "- (null)CHIRM-ATNDRESSE
3924 "- [198]ARB-[211]PEICHER-[193]DRESSE
3925 "- (null)EICHSATZ-ATNDRESSE
3926 :
3927 "GEZEIGT, SO DASS MAN SICH EINEN
3928 "VALINDRUCK VOM DER (null)PEICHERVERWALTUNG
3929 "DES [195]64 MACHEN KANN.
3948 :
3949 :
5000 :[143]==============================
5001 :[143]
5002 :[143]  MENUE UND TEXTAUFRUF
5003 :[143]==============================
5004 :
5009 :[141]9999:[143]-TEST
5010 :[153]"LOAD"
5011 :[153]"TAN(null)TANSTR$IRK PEEKREITINGERTAN(null)TAN  ASCREI-(null)OFT(2002)"
5012 :[153]"-- (null)OMMENTAR ZUM PEEKASIC-(null)URS 1.1 ---"::[141]50
5018 :
5020 :R$[178][199](13):[150][165]P(A)[178][194](A)[170][194](A[170]1)[172]256:
5098 :
5099 :
5100 :[143]---SEITENAUFBAU MENUE1
5101 :[151]53281,12:[151]53280,5
5102 :[153]"LOADPEEKASIC-(null)URS:  (null)OMMENTAR    WAIT"WL"":A[178]2
5110 :[153][163]A)"( 1 ) VALINFUEHRUNG"
5120 :[153][163]A)"( 2 ) CHR$RUNDLAGEN"
5130 :[153][163]A)"( 3 ) ATNUSGABE MIT (null)RINT
5140 :PRINTTAB(A)"( 4 ) [197]INGABEN MACHEN
5150 :[153][163]A)"( 5 ) STR$ATEN-PEEKEHANDLUNG
5160 :PRINTTAB(A)"( 6 ) [211]TRING-[207]PERATIONEN
5170 :[153][163]A)"( 7 ) (null)UMERISCHE (null)PERATIONEN
5180 :PRINTTAB(A)"( 8 ) [203]ANAL [194]EHANDLUNG
5190 :[153][163]A)"( 9 ) (null)PEICHER (null)PERATIONEN
5195 :PRINTTAB(A)"( 0 ) [208]ROGRAMM-[211]TRUKTUREN
5196 :[151]214,24:[153]"ON""STR$:STR$RUCK (null):(null)PEICHERN VAL:VALDIT"[163]28)">>>> WEITER";
5198 :
5199 :
5497 :
5498 :
5499 :
5500 :[143]---TASTEN
5501 :[141]902:[139]A[178]95[167]:[138]:
5502 :[139]A[178]17[176]A[178]29[176]A[178]145[167]:WL[178]0:[137]6000
5506 :
5507 ::[145][171](A[178]32)[137]5510:[139]A[178]13[167]:WL[178](WL[170]1)[172][171](WL[179]10):[137]5510
5508 :B[178]A[171]48:[139]B[179].[176]B[177]10[137]5100
5509 :WL[178]A[171]48:WL[178]WL[171](WL[178]0)[172]10:[139](WL[179].[176]WL[177]10)[167]:WL[178]0:[137]5100:
5510 :[139]WL[178]0[167]:WL[178]1
5511 :[145](WL)[141]1000,1100,1200,1300,1400,1500,1600,1700,1800,1900:[137]5100
5996 :
5997 :
5998 :
5999 :
6000 :[143]==============================
6001 :
6100 :[143]---SEITENAUFBAU MENUE2
6101 :[151]53281,12:[151]53280,3
6102 :[153]"LOADPEEKASIC-(null)URS: (null)OMMENTAR   WAIT"WL"":A[178]2:
6110 :[153][163]A)"( 1 ) STR$ISK-(null)AUFWERK
6120 :PRINTTAB(A)"( 2 ) [204]ADEN UND [211]PEICHERN
6130 :[153][163]A)"( 3 ) (null)EICHENSATZ
6140 :PRINTTAB(A)"( 4 ) [199]RAPHIK
6150 :[153][163]A)"( 5 ) (null)ORTIEREN
6160 :PRINTTAB(A)"( 6 ) [211]CHIRM-[210]OLLEN
6170 :[153][163]A)"( 7 ) (null)PRITES
6180 :PRINTTAB(A)"( 8 ) [211]OUND UND [205]USIK
6190 :[153][163]A)"( 9 ) (null)OPIEREN
6195 :PRINTTAB(A)"( 0 ) [211]PEICHER-[194]EREICHE
6196 :[151]214,24:[153]"ON""STR$:STR$RUCK (null):(null)PEICHERN VAL:VALDIT"[163]28)">>>> WEITER";
6198 :
6199 :
6497 :
6498 :
6499 :
6500 :[143]---TASTEN
6501 :[141]902
6506 :[139]A[178]145[176]A[178]17[176]A[178]29[167]:WL[178]0:[137]5100
6507 :[145][171](A[178]32)[137]6510:[139]A[178]13[167]:WL[178](WL[170]1)[172][171](WL[179]10):[137]6510
6508 :B[178]A[171]48:[139]B[179].[176]B[177]10[137]5100:
6509 :WL[178]A[171]48:WL[178]WL[171](WL[178]0)[172]10:[145][171](WL[179].)[137]6500:
6510 :[139]WL[178].[167]:WL[178]1:[143]---AUFRUF
6511 :[145](WL)[141]3000,3100,3200,3300,3400,3500,3600,3700,3800,3900:[137]6100
9999 :[142]: